home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / UIFlow 1.0.1 / UIFlow Source / VSet2.0 / Src / dfi.h < prev    next >
Encoding:
C/C++ Source or Header  |  1992-04-20  |  20.4 KB  |  564 lines  |  [TEXT/????]
  1. /*****************************************************************************
  2. * 
  3. *              NCSA HDF version 3.10r4
  4. *                June 25, 1991
  5. *
  6. * NCSA HDF Version 3.10r4 source code and documentation are in the public
  7. * domain.  Specifically, we give to the public domain all rights for future
  8. * licensing of the source code, all resale rights, and all publishing rights.
  9. * 
  10. * We ask, but do not require, that the following message be included in all
  11. * derived works:
  12. * 
  13. * Portions developed at the National Center for Supercomputing Applications at
  14. * the University of Illinois at Urbana-Champaign.
  15. * 
  16. * THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
  17. * SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
  18. * WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
  19. * 
  20. *****************************************************************************/
  21. #ifdef RCSID
  22. static char RcsId[] = "@(#)$Revision: 3.16 $"
  23. #endif
  24. /*
  25. $Header: /pita/work/HDF/dev/RCS/src/dfi.h,v 3.16 91/06/21 11:56:26 dilg beta $
  26. $Log:    dfi.h,v $
  27.  * Revision 3.16  91/06/21  11:56:26  dilg
  28.  * Removed malloc() from the #ifndef UNICOS at the end of the file.
  29.  * 
  30.  * Revision 3.15  91/05/21  12:25:57  dilg
  31.  * Changed #include <sys/fcntl.h> to #include <fcntl.h> in UNICOS section and
  32.  * put #ifndef UNICOS - #endif around redefinitions of strncpy(), strcpy(),
  33.  * malloc(), and memcpy() at end of file.  Needed because of change to 
  34.  * UNICOS 6.X.
  35.  * 
  36.  * Revision 3.14  90/10/02  14:16:49  clow
  37.  * fixed error in the define of DFmovmem in the MIPSEL segment
  38.  * 
  39.  * Revision 3.13  90/09/18  15:09:10  clow
  40.  * Added MIPSEL to 'list of approved machine types'
  41.  * 
  42.  * Revision 3.12  90/09/14  12:49:07  mfolk
  43.  * *** empty log message ***
  44.  * 
  45.  * Revision 3.11  90/08/30  14:51:59  mfolk
  46.  * Add DFMT_MIPSEL  0x4441 machine type and #ifdef section for MIPSEL.
  47.  * This should cover DEC3100 needs.
  48.  * 
  49.  * Revision 3.10  90/07/31  13:30:15  mfolk
  50.  * Added typedef double float64; to all machine types, so that this
  51.  * dfi.h would work with fp2hdf as changed by INEL.  (Mike Folk)
  52.  * 
  53.  * Revision 3.9  90/07/16  11:25:56  clow
  54.  * added #if's so that the compiler will complain if MACHINE is set wrongly.
  55.  * 
  56.  * Revision 3.8  90/07/05  17:00:08  clow
  57.  * Changed the lower value of DF_TBUF 512
  58.  * 
  59.  * Revision 3.7  90/06/28  09:41:26  clow
  60.  * Added segment for APOLLO machines
  61.  * 
  62.  * Revision 3.6  90/05/23  15:47:37  clow
  63.  * added MACRO "DF_OPENERR" to give uniform error open checking,
  64.  * especially for unbufferred I/O open
  65.  * 
  66.  * Revision 3.5  90/05/18  11:09:12  clow
  67.  * added missing #endif
  68.  * 
  69.  * Revision 3.4  90/05/17  17:06:00  clow
  70.  * added _fcd and _fcdtocp for LS FORTRAN so we don't have to go through
  71.  * an extra layer of Fortran stubs
  72.  * 
  73.  * Revision 3.4  90/05/17  16:04:14  clow
  74.  * added _fcd and _fcdtocp for LS FORTRAN so we don't have to go through
  75.  * an extra layer of Fortran stubs
  76.  * 
  77.  * Revision 3.3  90/05/14  23:15:45  clow
  78.  * added definition of MACRO "FCALLKEYW"
  79.  * 
  80. */
  81. /*-----------------------------------------------------------------------------
  82.  * File:    dfi.h
  83.  * Purpose: HDF internal header file
  84.  * Invokes: stdio.h, sys/file.h
  85.  * Contents: 
  86.  *  Compilation parameters
  87.  *  Machine-dependent definitions
  88.  *  Flexibility definitions: i/o buffering, dynamic memory, structure i/o
  89.  *  Size parameters
  90.  * Remarks: To port to a new system, only dfi.h and Makefile need be modified.
  91.  *          This file is included with user programs, but users do not see it.
  92.  *---------------------------------------------------------------------------*/
  93.  
  94.  
  95. #ifndef DF_MAGICK        /* avoid re-inclusion */
  96.  
  97. #define    DF_MAGICK    "\016\003\023\001" /* ^N^C^S^A */
  98.  
  99. #ifndef FILE
  100. #include <stdio.h>
  101. #endif /*FILE*/
  102.  
  103. /*--------------------------------------------------------------------------*/
  104. /*          Compilation Parameters for Flexibility and Portability          */
  105.  
  106. /* modify this line to allow for machine dependencies */
  107. #define    MAC
  108. /**IMPORTANT** this is now in the in the makefile */
  109.  
  110. #if !defined(SUN) && !defined(SUN386) && !defined(VMS) && !defined(ALLIANT)
  111. #if !defined(IRIS4) && !defined(MAC) && !defined(UNICOS) && !defined(MIPSEL)
  112. if there is error on this line, the MACHINE type is defined wrong!!!
  113. #endif
  114. #endif
  115.  
  116. /* modify this line for buffered/unbuffered i/o */
  117. #define    DF_BUFFIO
  118.  
  119. /* modify this line for dynamic/static memory allocation */
  120. #define    DF_DYNAMIC
  121.  
  122. /* modify this line if structures cannot be read/written as is */
  123. #undef    DF_STRUCTOK        /* leave it this way - hdfsh expects it */
  124.  
  125. /* Current version number */
  126. #define    DFVERSION   3.00
  127.  
  128. /*--------------------------------------------------------------------------*/
  129. /*                              MT/NT constants                             */
  130. /*      four MT nibbles represent int, float, double, uchar                 */
  131. #define    DFMT_SUN        0x1111
  132. #define    DFMT_ALLIANT    0x1111
  133. #define    DFMT_IRIS4      0x1111
  134. #define DFMT_APOLLO    0x1111
  135. #define    DFMT_UNICOS     0x3331
  136. #define    DFMT_CTSS       0x3331
  137. #define    DFMT_VAX        0x2221
  138. #define DFMT_MIPSEL     0x4441
  139. #define    DFMT_PC         0x4144    /* note byte swapping ??? */
  140.                 /* check this... */
  141. #define    DFMT_MAC        0x1111
  142. #define DFMT_SUN386    0x1444
  143.  
  144. #define    DFNT_VERSION    1    /* current version of NT info */
  145.  
  146. /* type info codes */
  147. #define    DFNT_UINT       1
  148. #define    DFNT_INT        2
  149. #define    DFNT_UCHAR      3
  150. #define    DFNT_CHAR       4
  151. #define    DFNT_FLOAT      5
  152. #define    DFNT_DOUBLE     6
  153.  
  154. /* class info codes for int */
  155. #define    DFNTI_MBO       1    /* Motorola byte order 2's compl */
  156. #define    DFNTI_VBO       2    /* Vax byte order 2's compl */
  157. #define    DFNTI_IBO       4    /* Intel byte order 2's compl */
  158.  
  159. /* class info codes for float */
  160. #define    DFNTF_IEEE      1    /* IEEE format */
  161. #define    DFNTF_VAX       2    /* Vax format */
  162. #define    DFNTF_CRAY      3    /* Cray format */
  163. #define    DFNTF_PC        4    /* PC floats - flipped IEEE */
  164.  
  165. /* class info codes for char */
  166. #define    DFNTC_BYTE      0    /* bitwise/numeric field */
  167. #define    DFNTC_ASCII     1    /* ASCII */
  168. #define    DFNTC_EBCDIC    5    /* EBCDIC */
  169.  
  170. /* array order */
  171. #define    DFO_FORTRAN     1    /* column major order */
  172. #define    DFO_C           2    /* row major order */
  173.  
  174. /*--------------------------------------------------------------------------*/
  175. /*                      Machine dependencies                                */
  176. #ifdef PC
  177. #ifndef O_RDONLY
  178. #include <fcntl.h>
  179. #define    L_INCR  1
  180. #endif /*O_RDONLY*/
  181. typedef    int int16;
  182. typedef    unsigned int uint16;
  183. typedef    long int int32;
  184. typedef    double float32;
  185. #define    DFmovmem(from, to, len) memcpy(to, from, len)
  186. #undef DF_STRUCTOK                  /* structure writing will not work on PC */
  187. #undef DF_BUFFIO                    /* unbuffered i/o is faster */
  188. long longswap();                    /* provided elsewhere */
  189.  
  190.     /* in the next 3 lines, p is recast so right number of bytes passed */
  191.     /* ### Note that all calls modify p.  Need to use temporary ptr */
  192. #define    UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  193. #define    INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  194. #define    INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  195.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  196. #define    UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  197. #define    INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  198. #define    INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  199.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  200. #define    DF_CREAT(name, prot) creat(name, prot)
  201. #define    DF_MT   DFMT_PC
  202. #endif /*PC*/
  203.  
  204.  
  205. #ifdef UNICOS
  206. #ifndef O_RDONLY
  207. #include <fcntl.h>              /* for unbuffered i/o stuff */
  208. #define    L_INCR  1
  209. #endif /*O_RDONLY*/
  210. typedef    int int16;
  211. typedef    int uint16;
  212. typedef    int int32;
  213. typedef    float float32;
  214. typedef double float64;
  215. #define    DFmovmem(from, to, len) memcpy(to, from, len)
  216. #undef DF_STRUCTOK          /* cannot directly read/write structures */
  217. #define    DF_CAPFNAMES            /* fortran names are in all caps */
  218. #define    UINT16READ(p, x)    { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  219. #define    INT16READ(p, x)     { x = (*p++)<<8; x |= (*p++) & 255; }
  220. #define    INT32READ(p, x)     { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  221.                                 x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  222. #define    UINT16WRITE(p, x)   { *p++ = (x>>8) & 255; *p++ = x & 255; }
  223. #define    INT16WRITE(p, x)    { *p++ = (x>>8) & 255; *p++ = x & 255; }
  224. #define    INT32WRITE(p, x)    { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;   \
  225.                                 *p++ = (x>>8) & 255; *p++ = x & 255; }
  226. #define    DF_CREAT(name, prot) creat(name, prot)
  227. #define    DF_MT   DFMT_UNICOS
  228. #endif /*UNICOS*/
  229.  
  230.  
  231. #ifdef SUN
  232. #if ! defined mc68010 && ! defined mc68020 && ! defined mc68030
  233. #undef DF_STRUCTOK
  234. #endif
  235. #include <sys/file.h>               /* for unbuffered i/o stuff */
  236. typedef    short int16;
  237. typedef    unsigned short uint16;
  238. typedef    long int32;
  239. typedef    float float32;
  240. typedef double float64;
  241. #define    DFmovmem(from, to, len) memcpy(to, from, len)
  242. #ifndef DF_STRUCTOK
  243. #define    UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  244. #define    INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  245. #define    INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  246.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  247. #define    UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  248. #define    INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  249. #define    INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  250.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  251. #endif /*DF_STRUCTOK*/
  252. #define    DF_CREAT(name, prot) creat(name, prot)
  253. #define    DF_MT   DFMT_SUN
  254. #endif /*SUN*/
  255.  
  256. #ifdef SUN386
  257. #undef DF_STRUCTOK
  258. #include <sys/file.h>               /* for unbuffered i/o stuff */
  259. typedef    short int16;
  260. typedef    unsigned short uint16;
  261. typedef    long int32;
  262. typedef    float float32;
  263. typedef double float64;
  264. #define    DFmovmem(from, to, len) memcpy(to, from, len)
  265. #ifndef DF_STRUCTOK
  266. #define    UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  267. #define    INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  268. #define    INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  269.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  270. #define    UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  271. #define    INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  272. #define    INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  273.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  274. #endif /*DF_STRUCTOK*/
  275. #define    DF_CREAT(name, prot) creat(name, prot)
  276. #define    DF_MT   DFMT_SUN386
  277. #endif /* SUN386 */
  278.  
  279. #ifdef ALLIANT
  280. #include <sys/file.h>               /* for unbuffered i/o stuff */
  281. typedef    short int16;
  282. typedef    unsigned short uint16;
  283. typedef    long int32;
  284. typedef    float float32;
  285. typedef double float64;
  286. #define    DFmovmem(from, to, len) bcopy(from, to, len)
  287. #ifndef DF_STRUCTOK
  288. #define    UINT16READ(p, x)    { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  289. #define    INT16READ(p, x)     { x = (*p++)<<8; x |= (*p++) & 255; }
  290. #define    INT32READ(p, x)     { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  291.                                 x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  292. #define    UINT16WRITE(p, x)   { *p++ = (x>>8) & 255; *p++ = x & 255; }
  293. #define    INT16WRITE(p, x)    { *p++ = (x>>8) & 255; *p++ = x & 255; }
  294. #define    INT32WRITE(p, x)    { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;   \
  295.                                 *p++ = (x>>8) & 255; *p++ = x & 255; }
  296. #endif /*DF_STRUCTOK*/
  297. #define    DF_CREAT(name, prot) creat(name, prot)
  298. #define    DF_MT   DFMT_ALLIANT
  299. #endif /*ALLIANT*/
  300.  
  301.  
  302. #ifdef IRIS4
  303. #undef DF_STRUCTOK
  304. #include <sys/types.h>
  305. #include <sys/file.h>               /* for unbuffered i/o stuff */
  306. typedef    short int16;
  307. typedef    unsigned short uint16;
  308. typedef    long int32;
  309. typedef    float float32;
  310. typedef double float64;
  311. #define    DFmovmem(from, to, len) bcopy(from, to, len)
  312. #ifndef DF_STRUCTOK
  313. #define    UINT16READ(p, x)    { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  314. #define INT16READ(p, x)     { x = (*p++)<<8; x |= (*p++) & 255; }
  315. #define INT32READ(p, x)     { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  316.                                 x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  317. #define UINT16WRITE(p, x)   { *p++ = (x>>8) & 255; *p++ = x & 255; }
  318. #define INT16WRITE(p, x)    { *p++ = (x>>8) & 255; *p++ = x & 255; }
  319. #define INT32WRITE(p, x)    { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;   \
  320.                                 *p++ = (x>>8) & 255; *p++ = x & 255; }
  321. #endif /*DF_STRUCTOK*/
  322. #define DF_CREAT(name, prot) creat(name, prot)
  323. #define DF_MT   DFMT_IRIS4
  324. #endif /*IRIS4*/
  325.  
  326.  
  327. #ifdef MIPSEL
  328. #undef DF_STRUCTOK
  329. #include <sys/types.h>
  330. #include <sys/file.h>               /* for unbuffered i/o stuff */
  331. typedef short int16;
  332. typedef unsigned short uint16;
  333. typedef long int32;
  334. typedef float float32;
  335. typedef double float64;
  336. #define DFmovmem(from, to, len) memcpy(to, from, len)
  337. #ifndef DF_STRUCTOK
  338. #define UINT16READ(p, x)    { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  339. #define INT16READ(p, x)     { x = (*p++)<<8; x |= (*p++) & 255; }
  340. #define INT32READ(p, x)     { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  341.                               x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  342. #define UINT16WRITE(p, x)   { *p++ = (x>>8) & 255; *p++ = x & 255; }
  343. #define INT16WRITE(p, x)    { *p++ = (x>>8) & 255; *p++ = x & 255; }
  344. #define INT32WRITE(p, x)    { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  345.                               *p++ = (x>>8) & 255; *p++ = x & 255; }
  346. #endif /*DF_STRUCTOK*/
  347. #define DF_CREAT(name, prot) creat(name, prot)
  348. #define DF_MT   DFMT_MIPSEL
  349. #endif /*MIPSEL*/
  350.  
  351.  
  352. #ifdef MAC
  353. #undef DF_BUFFIO        /* use unbuffered i/o */
  354. #include <memory.h>             /* malloc stuff for MPW 3.0 */
  355. #include <fcntl.h>              /* unbuffered IO stuff for MPW 3.0 */
  356. #ifdef THINK_C                  /* for LightSpeed C */
  357. #include <unix.h>
  358. #else /*THINK_C                   MPW, possibly others */
  359. #include <Files.h>              /* for unbuffered i/o stuff */
  360. #endif /*THINK_C*/
  361. #define    DF_CAPFNAMES            /* fortran names are in all caps */
  362. #define DF_DYNAMIC        /* use dynamic allocation */
  363. typedef short int16;
  364. typedef unsigned short uint16;
  365. typedef long int32;
  366. typedef float float32;
  367. typedef double float64;
  368. #ifdef THINK_C                   /* LightSpeed C does not have memcpy */
  369. #define DFmovmem(from, to, len) DFImemcopy(from, to, len)
  370. #else /*THINK_C*/
  371. #define DFmovmem(from, to, len) memcpy(to, from, len)
  372. #endif /*THINK_C*/
  373. #define malloc(x)   NewPtr((Size)   (x))    /* don't use malloc on the Mac */
  374. #define free(x)     DisposPtr((Ptr) (x))    /* don't use free on the Nac   */ 
  375. #undef DF_STRUCTOK
  376. #define UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  377. #define INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  378. #define INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  379.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  380. #define UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  381. #define INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  382. #define INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  383.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  384. #define DF_CREAT(name, prot) mopen(name, O_WRONLY|O_TRUNC|O_CREAT)
  385. #define DF_MT   DFMT_MAC
  386. #endif /*MAC*/
  387.  
  388. #ifdef VMS
  389. /*#undef DF_BUFFIO should be buff !!!!*/
  390.    /* use only unbuff i/o - buff doesn't work! */
  391. #ifndef DFopen                  /* avoid double includes */
  392. #include "dfivms.h"
  393. #endif /*DFopen*/
  394. #undef DF_STRUCTOK
  395. #define DF_CAPFNAMES            /* fortran names are in all caps */
  396. #include <file.h>               /* for unbuffered i/o stuff */
  397. typedef short int16;
  398. typedef unsigned short uint16;
  399. typedef long int32;
  400. typedef float float32;
  401. typedef double float64;
  402. #define DFmovmem(from, to, len) memcpy(to, from, len)
  403. #ifndef DF_STRUCTOK
  404. #define UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  405. #define INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  406. #define INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  407.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  408. #define UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  409. #define INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  410. #define INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  411.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  412. #endif /*DF_STRUCTOK*/
  413. #define DF_CREAT(name, prot) creat(name, prot)
  414. #define DF_MT   DFMT_VAX
  415. #endif /*VMS*/
  416.  
  417. #ifdef APOLLO
  418. #if ! defined mc68010 && ! defined mc68020 && ! defined mc68030
  419. #undef DF_STRUCTOK
  420. #endif
  421. #include <sys/file.h>               /* for unbuffered i/o stuff */
  422. #define int16 short
  423. #define uint16 unsigned short
  424. #define int32 long
  425. #define float32 float
  426. #define DFmovmem(from, to, len) memcpy(to, from, len)
  427. #ifndef DF_STRUCTOK
  428. #define UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  429. #define INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  430. #define INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  431.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  432. #define UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  433. #define INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  434. #define INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  435.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  436. #endif /*DF_STRUCTOK*/
  437. #define DF_CREAT(name, prot) creat(name, prot)
  438. #define DF_MT   DFMT_APOLLO
  439. #endif /*APOLLO*/
  440.  
  441.  
  442. /*--------------------------------------------------------------------------*/
  443. /*                      Flexibility parameters                              */
  444. #ifdef MAC            /* MAC specific file manager calls */
  445. #    define DF_OPEN(x,y) mopen(x,y)
  446. #    define DF_CLOSE(x) mclose(x)
  447. #    define DF_SEEK(x,y,z) mlseek(x,y,z)
  448. #    define DF_SKEND(x,y,z) mlseek(x,-1*y,z)
  449. #    define DF_TELL(x) mlseek(x,0L,1)
  450. #    define DF_READ(a,b,c,d) mread(d,a,b*c)
  451. #    define DF_WRITE(a,b,c,d) mwrite(d,a,b*c)
  452. #    define DF_FLUSH(a)            /* no need to flush */
  453. #    define DF_RDACCESS 0        /* dummy */
  454. #    define DF_WRACCESS 0        /* dummy */
  455. #    define DF_OPENERR(f)    ((f) == -1)
  456. #else /* !MAC */
  457. #ifdef DF_BUFFIO            /* set all calls to do buffered I/O */
  458. #define DF_OPEN(x,y) fopen(x,y)
  459. #define DF_CLOSE(x) fclose(x)
  460. #define DF_SEEK(x,y,z) fseek(x,y,z)
  461. #define DF_SKEND(x,y,z) fseek(x,y,z)
  462. #define DF_TELL(x) ftell(x)
  463. #define DF_READ(a,b,c,d) fread(a,b,c,d)
  464. #define DF_WRITE(a,b,c,d) fwrite(a,b,c,d)
  465. #define DF_FLUSH(a) fflush(a)
  466. #define DF_OPENERR(f)    (!(f))
  467. #ifdef PC
  468. #define DF_RDACCESS "rb"
  469. #define DF_WRACCESS "rb+"
  470. #else /*PC*/
  471. #define DF_RDACCESS "r"
  472. #define DF_WRACCESS "r+"
  473. #endif /*PC*/
  474.  
  475. #else /*DF_BUFFIO         unbuffered i/o */
  476. #define DF_OPEN(x,y) open(x,y)
  477. #define DF_CLOSE(x) close(x)
  478. #define DF_SEEK(x,y,z) lseek(x,y,z)
  479. #define DF_SKEND(x,y,z) lseek(x,-1*y,z)
  480. #define DF_TELL(x) lseek(x,0L,1)
  481. #define DF_READ(a,b,c,d) read(d,a,b*c)
  482. #define DF_WRITE(a,b,c,d) write(d,a,b*c)
  483. #define DF_OPENERR(f)    ((f) == -1)
  484. #define DF_FLUSH(a)                             /* no need to flush */
  485. #  ifdef PC
  486. #    define DF_RDACCESS O_RDONLY | O_RAW
  487. #    define DF_WRACCESS O_RDWR | O_RAW
  488. #  else 
  489. #    define DF_RDACCESS O_RDONLY
  490. #    define DF_WRACCESS O_RDWR
  491. #  endif /*!PC*/
  492. #endif /*DF_BUFFIO*/
  493. #endif /* !MAC */
  494.  
  495.  
  496.     /* if not allocating memory dynamically, need buffer for compression */
  497. #ifndef DF_DYNAMIC
  498. #define DF_TBUF
  499. #define DF_TBUFSZ    10000    /* buffer size */
  500. #endif /*DF_DYNAMIC*/
  501.  
  502.     /* if reading/writing structures not ok, need buffer for conversion */
  503. #ifndef DF_TBUF
  504. #ifndef DF_STRUCTOK
  505. #define DF_TBUF
  506. #define DF_TBUFSZ    512    /* buffer size can be smaller */
  507. #endif /*DF_STRUCTOK*/
  508. #endif /*DF_TBUF*/
  509.  
  510.     /* set buffer size */
  511. #ifdef DF_TBUF
  512. #ifndef DFMASTER
  513. extern
  514. #endif /*DFMASTER*/
  515.     char DFtbuf[DF_TBUFSZ];
  516. #endif /*DF_TBUF*/
  517.  
  518. /* VMS str descriptor conversion macro */
  519. #if defined(VMS)
  520. #   define _fcdtocp(desc) ((char *) *((char **) &desc[4]))
  521.     typedef char *_fcd;
  522. #else /* !VMS */
  523. #if defined(UNICOS)
  524. #   include <fortran.h>
  525. #else /* !VMS && !UNICOS */
  526. #if defined(MAC)        /* with LS_FORTRAN */
  527. #   define _fcdtocp(descp) (*((char**)(descp)))
  528.     typedef char** _fcd;
  529. #else /* !VMS && !UNICOS && !MAC */
  530. #   define _fcdtocp(desc) (desc)
  531.     typedef char *_fcd;
  532. #endif
  533. #endif /* !VMS && !UNICOS */
  534. #endif /* !VMS */
  535.  
  536. /* 
  537. MACRO FCALLKEYW for any special fortran-C stub keyword
  538.  
  539. MacIntosh MPW LS-fortran needs pascal since it can interface best with
  540. pascal functions
  541. */
  542. #if defined(MAC)        /* with LS FORTRAN */
  543. #   define FCALLKEYW    pascal
  544. #else /* !MAC */
  545. #   define FCALLKEYW    /*NONE*/
  546. #endif
  547.  
  548. /*--------------------------------------------------------------------------*/
  549. /*                          Size parameters                                 */
  550. #define DF_MAXDFS           32  /* How many DF's can be open at once */
  551. #define DF_DEFAULTDDS       16  /* How many DD's a file has by default */
  552. #define DF_MAXFNLEN         256 /* maximum length of filename parameters */
  553.  
  554. #ifndef MAC
  555. #ifndef UNICOS
  556. char *strncpy();
  557. char *strcpy();
  558. char *memcpy();
  559. #endif /* !UNICOS */
  560. char *malloc();
  561. #endif /* !MAC */
  562.  
  563. #endif /*DF_MAGICK*/
  564.